;:open2,8,2,"stack overflow,p,w
;:sys36864
	;.opt o2
	*= $801
	.word 2059,1989
	.byt $9e
	.byte "2061"
	brk
	brk
	brk
	lda #55
	sta 1
	lda #160
	sta 35
	ldy #0
	sty 34
	ldx #32
l	lda (34),y
	sta (34),y
	iny
	bne l
	inc 35
	dex
	bne l
	ldx #vv-v-1
c1	lda v,x
	sta $bf53,x
	dex
	bpl c1
	ldx #vvv-vv-1
c2	lda vv,x
	sta $a3fb,x
	dex
	bpl c2
	lda #54
	sta 1
	lda #<hi
	ldy #>hi
	jmp $ab1e
hi	.byt 13,13
	.byte "neue fehlermeldung aktiv"
	.byt 13,13
	.byte "version 2 vom 050789"
	.byt 13,13
	.byte "von nikolaus heusler, a.r.r."
	.byt 13
	.byte "zwengauerweg 18, 8000 muc 71"
	.byt 13,13,0
v	asl
	adc #$3e
	bcs few
	sta $22
	tsx
	cpx $22
	bcc few
	rts
few	jmp $a3fe
	.byte "stack overfloW"
vv	jmp $bf53
	lda #$63
	sta 34
	lda #$bf
	jmp $a445
vvv	=*